home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 8
/
CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso
/
pc
/
mac
/
__game_t
/
dungeon_
/
info_hom.e
/
card_6146.txt
< prev
next >
Wrap
Text File
|
1992-05-24
|
5KB
|
240 lines
-- card: 6146 from stack: in.e
-- bmap block id: 4038
-- flags: 0000
-- background id: 2549
-- name: Stacks
----- HyperTalk script -----
on openCard
setUserLevel the userLevel
if card field "User Name" is empty
then click at the loc of card field "User Name"
set the locktext of fld "paths" to false
end openCard
on closeCard
set the locktext of fld "paths" to true
end closeCard
on setUserLevel whatLevel
set userLevel to whatLevel
if the userLevel is whatLevel then
put the userLevel into card field "User Level"
set hilite of button "Browsing" to the userLevel = 1
set hilite of button "Typing" to the userLevel = 2
set hilite of button "Painting" to the userLevel = 3
set hilite of button "Authoring" to the userLevel = 4
set hilite of button "Scripting" to the userLevel = 5
set visible of button "Power Keys" to the userLevel >= 3
set visible of button "Text Arrows" to the userLevel >= 2
set visible of button "Blind Typing" to the userLevel = 5
set hilite of button "Power Keys" to the powerKeys
set hilite of button "Text Arrows" to the textArrows
set hilite of button "Blind Typing" to the blindTyping
else
set hilite of the target to false
end if
end setUserLevel
-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=108 top=70 right=90 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: User Name
----- HyperTalk script -----
on closeField
global userName
put card field "User Name" into userName
end closeField
-- part 4 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=35 top=125 right=146 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Browsing
----- HyperTalk script -----
on mouseUp
setUserLevel 1
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=35 top=146 right=167 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Typing
----- HyperTalk script -----
on mouseUp
setUserLevel 2
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=35 top=167 right=188 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Painting
----- HyperTalk script -----
on mouseUp
setUserLevel 3
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=35 top=188 right=209 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Authoring
----- HyperTalk script -----
on mouseUp
setUserLevel 4
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=35 top=209 right=230 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scripting
----- HyperTalk script -----
on mouseUp
setUserLevel 5
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=135 top=146 right=167 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Text Arrows
----- HyperTalk script -----
on mouseUp
set textArrows to the hilite of me
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=135 top=167 right=188 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Power Keys
----- HyperTalk script -----
on mouseUp
set powerKeys to the hilite of button "Power Keys"
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=135 top=209 right=230 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blind Typing
----- HyperTalk script -----
on mouseUp
set blindTyping to the hilite of button "Blind Typing"
end mouseUp
-- part 12 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=107 top=104 right=123 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User Level
-- part contents for background part 17
----- text -----
User Preferences
-- part contents for card part 3
----- text -----
Dungeon Mastery
-- part contents for card part 12
----- text -----
5
-- part contents for background part 7
----- text -----
Hobbes:HyperCard 1.2:Fantasy Stacks:DMastery 2.0: